home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / HyperCard 1.2.2 / Home / card_3011.txt < prev    next >
Text File  |  1989-11-16  |  5KB  |  227 lines
  1. -- card: 3011 from stack: in
  2. -- bmap block id: 3080
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   setUserLevel the userLevel
  9.   if card field "User Name" is empty
  10.   then click at the loc of card field "User Name"
  11. end openCard
  12.  
  13. on setUserLevel whatLevel
  14.   set userLevel to whatLevel
  15.   if the userLevel is whatLevel then
  16.     put the userLevel into card field "User Level"
  17.     set hilite of button "Browsing" to the userLevel = 1
  18.     set hilite of button "Typing" to the userLevel = 2
  19.     set hilite of button "Painting" to the userLevel = 3
  20.     set hilite of button "Authoring" to the userLevel = 4
  21.     set hilite of button "Scripting" to the userLevel = 5
  22.     set visible of button "Text Arrows" to the userlevel >= 2
  23.     set visible of button "Power Keys" to the userLevel >= 3
  24.     set visible of button "Blind Typing" to the userLevel = 5
  25.     set hilite of button "Text Arrows" to the textArrows
  26.     set hilite of button "Power Keys" to the powerKeys
  27.     set hilite of button "Blind Typing" to the blindTyping
  28.   else
  29.     set hilite of the target to false
  30.   end if
  31. end setUserLevel
  32.  
  33.  
  34.  
  35. -- part 1 (button)
  36. -- low flags: 00
  37. -- high flags: A006
  38. -- rect: left=95 top=145 right=166 bottom=223
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Browsing
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   setUserLevel 1
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 2 (button)
  55. -- low flags: 00
  56. -- high flags: A006
  57. -- rect: left=95 top=187 right=208 bottom=223
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Painting
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   setUserLevel 3
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 3 (button)
  74. -- low flags: 00
  75. -- high flags: A006
  76. -- rect: left=95 top=208 right=229 bottom=223
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Authoring
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   setUserLevel 4
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 4 (button)
  93. -- low flags: 00
  94. -- high flags: E006
  95. -- rect: left=95 top=229 right=250 bottom=223
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Scripting
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   setUserLevel 5
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 5 (button)
  112. -- low flags: 00
  113. -- high flags: A005
  114. -- rect: left=211 top=187 right=208 bottom=314
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Power Keys
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   set powerKeys to the hilite of button "Power Keys"
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 7 (field)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=168 top=91 right=111 bottom=392
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 14
  139. -- style flags: 0
  140. -- line height: 18
  141. -- part name: User Name
  142. ----- HyperTalk script -----
  143. on closeField
  144.   global userName
  145.   put card field "User Name" into userName
  146. end closeField
  147.  
  148.  
  149.  
  150. -- part 8 (button)
  151. -- low flags: 00
  152. -- high flags: A006
  153. -- rect: left=95 top=166 right=187 bottom=223
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Typing
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   setUserLevel 2
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 9 (field)
  170. -- low flags: 81
  171. -- high flags: 0000
  172. -- rect: left=173 top=125 right=144 bottom=198
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: User Level
  181.  
  182.  
  183. -- part 13 (button)
  184. -- low flags: 00
  185. -- high flags: A005
  186. -- rect: left=211 top=229 right=250 bottom=314
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Blind Typing
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   set blindTyping to the hilite of button "Blind Typing"
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part 14 (button)
  203. -- low flags: 00
  204. -- high flags: A005
  205. -- rect: left=211 top=166 right=187 bottom=314
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Text Arrows
  214. ----- HyperTalk script -----
  215. on mouseUp
  216.   set textArrows to the hilite of button "Text Arrows"
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part contents for background part 6
  222. ----- text -----
  223. User Preferences
  224.  
  225. -- part contents for card part 9
  226. ----- text -----
  227. 5